| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public, | parameter | :: | max_size | = | 10000 | |
| type(Trajectory), | public, | pointer | :: | current_trajectory |
тип для хранения точки тректории
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=wp), | public | :: | dland | ||||
| real(kind=wp), | public | :: | dcoll | ||||
| real(kind=wp), | public | :: | perpn | ||||
| real(kind=wp), | public | :: | dalf | ||||
| real(kind=wp), | public | :: | vel | ||||
| real(kind=wp), | public | :: | tetai | ||||
| real(kind=wp), | public | :: | xnpar | ||||
| real(kind=wp), | public | :: | rho | ||||
| real(kind=wp), | public | :: | vthc | ||||
| real(kind=wp), | public | :: | poloidn | ||||
| integer, | public | :: | izz | ||||
| integer, | public | :: | iww | ||||
| integer, | public | :: | jrad | ||||
| integer, | public | :: | driver |
value = 2 or 4, где была создана точка в driver2 или driver4 |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | size |
size of Trajectory |
|||
| real(kind=wp), | public | :: | tetin | ||||
| real(kind=wp), | public | :: | xmin | ||||
| real(kind=wp), | public | :: | rin | ||||
| real(kind=wp), | public | :: | yn3 | ||||
| real(kind=wp), | public | :: | pow | ||||
| integer, | public | :: | irs | ||||
| integer, | public | :: | iw | ||||
| integer, | public | :: | izn | ||||
| integer, | public | :: | spectrum_point_index | ||||
| integer, | public | :: | mbad | ||||
| integer, | public | :: | nrefj | ||||
| real(kind=wp), | public | :: | tetzap | ||||
| real(kind=wp), | public | :: | xmzap | ||||
| real(kind=wp), | public | :: | rzap | ||||
| real(kind=wp), | public | :: | yn3zap | ||||
| real(kind=wp), | public | :: | powexit | ||||
| integer, | public | :: | irszap | ||||
| integer, | public | :: | iwzap | ||||
| integer, | public | :: | iznzap | ||||
| type(TrajectoryPoint), | public, | allocatable | :: | points(:) |
| procedure, public :: init => init_method | |
| procedure, public :: reset => reset_method | |
| procedure, public :: add_point => add_point_method | |
| procedure, public :: write_info => write_info_method |
инициализация траетории
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(Trajectory), | intent(inout) | :: | this | |||
| real(kind=wp), | intent(in) | :: | theta | |||
| integer, | intent(in) | :: | index |
сброс счетчика
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(Trajectory), | intent(inout) | :: | this | |||
| integer, | intent(in) | :: | index |
добавляение новой точнки траектории
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(Trajectory), | intent(inout) | :: | this | |||
| class(TrajectoryPoint), | intent(in) | :: | tpoint |
сохранение в файл информации о траектории
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(Trajectory), | intent(inout) | :: | this | |||
| integer, | intent(in) | :: | iu |